5 POKE53272,23
10 FORI=1TO3:READA$(I):NEXT:PRINT"[147]":FORK=1TO3:FORT=1TO(40-LEN(A$(K)))/2
20 PRINT" ";:NEXT:PRINTA$(K):NEXT
30 DATA"[212][201][199][197][210] [195][210][197][215]","[198]ELDSTRASSE  17","36391 [211]INNTAL"
40 POKE198,0:WAIT198,1:PRINT"":LIST10-30